home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 August / Ahoy_Magazine_85-08_1985_Double_L.d64 / vic windows (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  2KB  |  36 lines
  1. 0 goto50
  2. 1 hb=peek(56):lb=peek(55)
  3. 2 hb=hb-1:lb=lb-162:iflb<0thenlb=lb+256
  4. 3 poke56,hb:poke52,hb:poke55,lb:poke51,lb:ml=256*hb+lb
  5. 4 forn=0to417:reada:pokeml+n,a:next
  6. 5 pokeml+22,lb:pokeml+23,hb:ow=ml+5:ww=ml+9:cw=ml+13
  7. 6 w$="open  sys"+str$(ow)+"\write sys"+str$(ww)+"\close sys"+str$(cw)
  8. 8 w%=18:h%=5:r%=8:c%=2
  9. 9 return
  10. 10 data87,215,200,210,195,169,0,240,6,169,64,208,2,169,128,133,94,162,4,160,0,189,0
  11. 11 data28,133,87,165,46,133,72,165,45,133,71,165,72,197,48,208,10,165,71,197,47,208
  12. 12 data4,169,0,240,33,165,87,209,71,208,8,169,128,200,209,71,240,12,136,165,71,24,105
  13. 13 data7,144,217,230,72,208,213,224,0,240,20,200,200,177,71,224,3,176,10,201,3,176,6
  14. 14 data169,3,224,0,240,2,149,87,202,16,173,166,89,224,13,176,15,202,202,134,92,166,89
  15. 15 data169,0,24,101,88,201,96,144,3,96,240,139,202,208,243,133,96,166,88,202,202,202
  16. 16 data134,93,169,22,56,229,88,144,234,197,91,144,230,133,95,160,0,166,90,138,24,101
  17. 17 data89,201,24,176,216,165,91,166,90,240,9,24,105,22,144,1,200,202,208,247,133,38
  18. 18 data133,40,152,24,109,136,2,133,39,152,24,105,148,44,2,144,16,3,24,105,2,133,41,36
  19. 19 data94,48,37,112,37,162,0,160,0,165,88,133,42,177,38,157,52,3,177,40,157,152,3,232
  20. 20 data200,198,42,208,240,198,89,240,143,152,24,101,95,168,208,225,208,117,160,4,162
  21. 21 data3,177,71,149,251,136,202,208,248,136,169,112,157,161,2,232,165,93,133,42,169
  22. 22 data64,157,161,2,232,198,42,16,248,192,0,208,75,169,110,157,161,2,232,169,93,157
  23. 23 data161,2,232,165,93,133,42,177,253,201,64,144,6,201,96,176,2,233,63,198,252,16,4
  24. 24 data230,252,169,32,201,28,208,8,136,165,42,208,243,200,208,242,157,161,2,232,200
  25. 25 data198,42,16,215,169,93,157,161,2,232,198,92,208,195,169,109,157,161,2,232,208,163
  26. 26 data169,125,157,161,2,162,0,160,0,165,88,133,42,36,94,16,14,189,52,3,145,38,189,152
  27. 27 data3,145,40,232,200,208,12,189,161,2,145,38,173,134,2,145,40,232,200,198,42,208
  28. 28 data222,198,89,208,1,96,152,24,101,95,168,24,144,205
  29. 50 print"[147]":poke36879,232
  30. 60 print"[145][158]                      "
  31. 70 fora=1to17:print"[158][145]    [146][144]  window vic  [158]    ":next
  32. 75 printtab(3)"by thomas bunker":printtab(4)"& ahoy! staff"
  33. 80 gosub 1:poke646,2
  34. 90 sys ow:ford=1to2000:next
  35. 100 sys cw:ford=1to2000:next:goto90
  36.